home *** CD-ROM | disk | FTP | other *** search
/ Business Assistant / Business Assistant.iso / acctg / pay1pers / qtrly.prg < prev    next >
Text File  |  1987-01-15  |  294b  |  14 lines
  1. *** QTRLY.PRG (procedure for quarterly report)
  2. *** Copyright @ 1987, Martin J. Michaelson
  3. SELECT A
  4. set index to empno,dept
  5. SELECT D
  6. SET RELATION TO EMP_NMBR INTO A
  7. SET PRINT ON
  8. ?? CHR(15)
  9. ?? CHR(27)+"E"
  10. LIST OFF A->SS_NMBR,"   ",A->NAME,D->GRO_PAY TO PRINT
  11. ?
  12. SET PRINT OFF
  13. RETURN
  14.